From 8bb272853d4aa811d3ea8725dbc10aa6f74e5b05 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 28 May 1993 01:22:00 +0000 Subject: [PATCH] (find-alternate-file): Hide truename and inode number temporarily, like the visited file name. --- lisp/files.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/files.el b/lisp/files.el index a9430029d56..77242e05e92 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -421,15 +421,21 @@ If the current buffer now contains an empty file that you just visited (error "Aborted")) (let ((obuf (current-buffer)) (ofile buffer-file-name) + (onum buffer-file-number) + (otrue buffer-file-truename) (oname (buffer-name))) (rename-buffer " **lose**") (setq buffer-file-name nil) + (setq buffer-file-number nil) + (setq buffer-file-truename nil) (unwind-protect (progn (unlock-buffer) (find-file filename)) (cond ((eq obuf (current-buffer)) (setq buffer-file-name ofile) + (setq buffer-file-number onum) + (setq buffer-file-truename otrue) (lock-buffer) (rename-buffer oname)))) (or (eq (current-buffer) obuf) -- 2.30.2